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THE FOLLOWING MACROS ENABLE ASSEMBLING Z-898 INSTRUCTIONS 
WITH THE DIGITAL RESEARCH MACRO ASSEMBLER. 
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MACRO FORMATS 


: - ~\ 
(IX+D) , NN 
(IY¥+D) ,NN 


* i 2 


NNINN IX, NNNWN 


NNNWN TY ,NNNN 
B 


NNNW 
NNNN 


: ADDX D ADD (IX+D) ADD D(IX) 
: : ADDY D ADD (IY+D) ADD D(1Y) 
| ; ADCK 5 ANC (T¥4+D) ADC D(TY) a 


« Ni ‘ A TH a my 


SUB (IX+D) 


SUB (IY+D) 
(IX+D) 
» ; (IY+D) 
X+D 
pi 
3 
4 
pis 
6 
ig 
b 8 
, is ; 
. INC (I1X+D) 
) DEC (IY+D) 


3 
e ae 
Setar oS 


IMP 
D RETI 
RETIN 


a 
Be oe 


OUTDR 


) RLCR 
RLCR 


* 
= 
a 


es =e Se =e = 


?R,2?D 
OFDH, ?R*8+46li, 2D 


STY MACRO 
) DB 


MACRO 
DB 
ENDM 


LDAR MACRO 
) DB Q@EDH,5FH 
ENDM 


os 
oe 
ce 


e 


P NNN 


LALY MACRO 7 NNNN 


2NNNN 
| QEDH,5BH 
?NNNN 


Dw ?NNNN 
| -BNDM 
Te pry MACRO ONAN 


= VEDH,O7E 


i DW ?NNNN 
ENDM 
LixD MACRO ?NNNN 
: DB ODDH, 2AH , 
DW ?NNNN 


‘ DW ?NNNN 


on oOoonmnh won — 


oe a a 
Te ae ee — 


=a 


ae oe 
o ~s 


o 
= 
Lhe] 
z IE 
Ze 
<= 
2 


2 os ae Soe: Sees Ree prem he ahaa cements 
22 iM ?NNNN 
p ies DB OFDH,22H 


DW. 2NNNN 


.— 2’ - -  e  e  e 


‘call, 


ENDM 
) 3s PUSHIY MACRO 


BS SRA BHR HSE DOAOWHwWwHWO WON ND & MY f RT AD Ph PM 
a eo? ee oe 


fos] 


; DBs OFDH, OESH_ 


p=" 


Pr nnn nonn nH 


DB QVEDH, AGH 


] ENDM 
LfiLER MACRO 


of ON OD HN ff WO ND 
: ee 


SUBX 


ORK 


DB 
ENDM 


M 
MACRO 


DB 


iN 
MA 
DB 
END 


MACRO 
DB 


MACRO 
DB 


MACRO 


DB 
EFNDM 


2D 


QDDH, 


7D 


ODDH, 


2D 


2D 


QDDH, 


#D 


ODDH, 


7D 


ODD, 


?D 
QDDH, 


2D 


QDDH, 


YODH, 


80H,? 


8H, ?D 


3s 


So 


96H, ?D 


9EH, ?D 


GACH, ?D 


QAEH, ?D 


i 
Se 


§¥BOH, 2D 


Q9BEH, ?D 


RRO 
8 


sears 


CMPY MACRO 2D 
DB OFDH,JBEH, ?D 
ENDM 
MACRO 2D 
DB ODDH,34H,?D 


2D 
QDDH,935H,?D 


OoOOn Dnontk won — 


ENDM 


Se 


Soe 
Ses = 


SES 


GFDH, 2BH 


SeTB MACRO Pig ek 
DB OCBH, ?N*8+?R+0CHOH 


DB OCBH, ?N*&+?R+80H 
ENDM 


MACRO 2N,? 
DDH,@CBH, ?D, 2?N*8+4 


MACRO? 


END 

PCLY MACRO 
DB OFDH,JE9H 
ENDM 


ENDM 
MACRO 


H 


ENDM 
OUTP MACRO 


DB OEDH, OA2H 
) ENDM 
| THTR MACRO 
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) RARX 


SLAY 


MACRO 
DB 


MACRO 
D3 


ENDM 
MACRO 
DB 


ENDM 
MACRO 
DB 


ENDM 
MACRO 
DB 


QEDH,@B2H 


Cd, 
@FDEH. 


HiCBH. 


By 


26H 


Sieh 


= 
o orn DO wm F&F WwW 


MACRO 2R 

DB OCBH, 28H+?R 
ENDM 

MACRO 0 


8CBH 


ENDM 
MACRO 
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DIGITAL RESEARCH 


CP/M LOGICAL DISK DRIVES ARE DEFINED USING THE 
MACROS GIVEN BELOW, WHERE THE SEQUENCE OF CALLS 


LSKD. PARAM R 31 
DISKDEF PARAMETER-LIST~-1 


oe 2 


DISKDEF PARAMETER-LIST~N 


WOE IN cee ye Bou JUS ead zB > re © ALL 
TO THE CP/M SYSTEM, AND PARAMETER-LIST-I INES THE 
CHARACTERISTICS OF THE ITH DRIVE (I=@,1,...,N-1) 


THE DISK NUMBER 0,1,...,N~-1 
THE FIRST SECTOR NUMBER (USUALLY 9 OR 1) 
THE LAST SECTOR 

ONAI 


F os ete 
ie ARS E 


bye 


TH Y ELEMENTS 


THE NUMBER OF DIR ELEMENTS TO CHECKSUM 
THE NUMBER OF TRACKS TO SKIP (WORD) 
oii GK/DTRECT 


tN 


DN ,DM 
DEFINES DISK DN AS HAVING THE SAME CHARACTERISTICS A 
X PREVTOISIY BEFITINED Disk DM. 


ss 


See 


See 


A STANDARD FOUR DRIVE CP/M SYSTEM IS DEFINED BY 
DISKS 4 
DISKDEF @,1,26,6,1024,243,64,64,2 


e “eo =a “St NS 


So oo 
re TS 


"DATSIZ" AT THE END OF THE 


) NOTE THAT THE ALLOCATION VECTOR WILL BE QUITE 
DISK SIZE IS DEFINED WITH A SMALL BLOCK 
es eee : . 


ISK HEADER 


) XLT&DN,8OU00H ; TRANSLATE TABLE 
GOGO ,OOO0K ; SCRATCH AREA 


} DIS! MACRO ND 
DEFINE ND DISKS 


DSKNXT SET 
; REPT ND 
DSKHDR__$DSKNXT 


i 
] DPBHDR MACRO 
DPB&DN EC *DISK PARM BLOCK 


ACRO 
DEFINE A DB STATEMENT 
) DB DATA . COMMENT 


ENDM 


COMMENT 
= 
DI ut 3 ee SS 
RANSLATE TABLE GENERATION 


;VARIABLE FOR M 
; VARIABLE FOR N 


) SET 
SET 


. 
‘ 
° 
f 


Soe 


See 
eet 
os 


GCDR SET GCDM - GCDX*GCDN 


} IF GCDR = @ 
EW T'TiM 


oo e-oeoeee#e#eeeeeee%eee?eeweteeerteeeese se 


1 
y |? : 
. 3 J J ss Sy wa : 4 
. CURRENT DISK DN SAME AS PREVIOUS FSC . 
> EOU DPB&FSC ;EQUIVALENT PARAMETERS , 
6 i £ ° aN ON OR 8 
= ac : 
y | 
9 
" SECMAX LSC- (FSC) >:SECTORS 9...SECMAX 
) SECTORS SECMAX+1;;NUMBER OF SECTORS 


DK 3 22 6 A 


ND Lt : 
SET (CKS)/4 ;;NUMBER OF CHECKSU 
] | GENERATE THE BLOCK SHIFT VALUE 


6 GF FNUMBER OC 


IF 
; EXITM 
NDIF 
) 
Bl APLOK : ee Berseyror, 
BLKVAL /2 
; ENDM 
GENERATE THE EXTEN 
) 
IF 
j EXITM 
ENDIF 
} 
Boe & ee 
ENDM 
} MAY BE DOUBLE BYTE ALLOCATION 
If 
) 
IF NOT 
) SET K16 
ENDIF 
i 
: b S SLU 
K *FILL WITH 1 
) 16 
DIRREM=0 
) 
O! J 1 ITERATE Ob A No 
3 SHIFT RIGHT AND ADD 1 HIGH ORDER BIT 
DIRBLK SET (DIRBLK SHR 1) OR 8909H 


| TP NTRREM > DIRRKS 


a ee Ie ae me eR a a md ne a ae a a 
DIRREM SET DIRREM-DIRBKS 


ELSE 
DIRREM SET 
ENDIF 


® 

ENDM e 
: ae: a. : 

© 


SEXTMSK, <; EXT 
$(DKS)-1,<;DISK SIZE-1> 
~1,<;DIRECTORY 


DDW 5 (CIN é PUEE 

DDW OFS ,<;OFFSET> 

GENERATE THE TRANSLATE TABLE, IF REQUESTED 
NUL SKF 


XLT&DN  EQU 
ELSE 
GENERATE 


is GCD (SECTORS, SKEW) 
NELTST SECTORS/GCDN 
ei IS NUMBER OF ELEMENTS 


SECTORS ;;ONCE FOR EACH SECTOR 
SECTORS < 256 
SNXTSEC+ (FSC 


NXTSEC NXTSEC+ (SKF) 
NXTSEC >= SECTORS 
NX TSEC NXTSEC-SECTORS 


NXTBAS NXTBAS+1 
NXTSEC NXTBAS 
NELTS NELTST 


ENDIF ND OF BLS TEST 
ENDM 


MACRO LB,DN,VAL 
DEFDS LB&DN, sVAL&DN 


- GENERATE THE NECESSARY RAM DATA AREAS 
) BEGDAT BQU S 
ae 192 SDTRECTORY ACCESS RUPFER . 


DSKNAT 


KKKKKKEEKKKKKK 


a 


REPT NDISKS ;;ONCE FOR EACH DISK 
ALV, SDSKNXT,ALS 
CSV, @DSKNXT,CSS 

SET DSKNXT+1 ‘ 


KKK 


SET i 
COUNT RIGHT SHIFTS OF @Y UNTIL 
a 


“SHIFT RIGHT ONE POSTION 
SET @yY SHR1 


= 


= 


Son GND Ot 
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